home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIFTP / FTPEXP / servers / discon.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-09-07  |  4.2 KB  |  136 lines
  1. VERSION 4.00
  2. Begin VB.Form Disconnect 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Disconnect FTP Server"
  5.    ClientHeight    =   2175
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1515
  8.    ClientWidth     =   5280
  9.    Height          =   2580
  10.    Icon            =   "Discon.frx":0000
  11.    Left            =   1080
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2175
  17.    ScaleWidth      =   5280
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1170
  20.    Width           =   5400
  21.    Begin VB.CommandButton cmdCancel 
  22.       Cancel          =   -1  'True
  23.       Caption         =   "Cancel"
  24.       Height          =   345
  25.       Left            =   4005
  26.       TabIndex        =   3
  27.       Top             =   630
  28.       Width           =   1125
  29.    End
  30.    Begin VB.CommandButton cmdOK 
  31.       Caption         =   "OK"
  32.       Default         =   -1  'True
  33.       Height          =   345
  34.       Left            =   4005
  35.       TabIndex        =   2
  36.       Top             =   180
  37.       Width           =   1125
  38.    End
  39.    Begin ComctlLib.ListView Servers 
  40.       Height          =   1470
  41.       Left            =   180
  42.       TabIndex        =   1
  43.       Top             =   510
  44.       Width           =   3645
  45.       _Version        =   65536
  46.       _ExtentX        =   6429
  47.       _ExtentY        =   2593
  48.       _StockProps     =   205
  49.       ForeColor       =   -2147483640
  50.       BackColor       =   -2147483643
  51.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  52.          Name            =   "MS Sans Serif"
  53.          Size            =   8.25
  54.          Charset         =   0
  55.          Weight          =   400
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Appearance      =   1
  61.       HideColumnHeaders=   -1  'True
  62.       HideSelection   =   0   'False
  63.       Icons           =   ""
  64.       LabelEdit       =   1
  65.       SmallIcons      =   "imgAddresses"
  66.       View            =   3
  67.       NumItems        =   1
  68.       i1              =   "Discon.frx":014A
  69.    End
  70.    Begin ComctlLib.ImageList imgAddresses 
  71.       Left            =   4155
  72.       Top             =   1230
  73.       _Version        =   65536
  74.       _ExtentX        =   1005
  75.       _ExtentY        =   1005
  76.       _StockProps     =   1
  77.       BackColor       =   -2147483643
  78.       ImageWidth      =   16
  79.       ImageHeight     =   16
  80.       MaskColor       =   12632256
  81.       NumImages       =   1
  82.       i1              =   "Discon.frx":0218
  83.    End
  84.    Begin VB.Label lblGeneric 
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "&Server:"
  87.       Height          =   255
  88.       Left            =   180
  89.       TabIndex        =   0
  90.       Top             =   180
  91.       Width           =   1545
  92.    End
  93. Attribute VB_Name = "Disconnect"
  94. Attribute VB_Creatable = False
  95. Attribute VB_Exposed = False
  96. Option Explicit
  97. '<Public>---------------------------------------------
  98. Public PressedOK    As Boolean
  99. Public ServersNode  As Node
  100. Public Alias        As String
  101. '</Public>--------------------------------------------
  102. Private Sub cmdCancel_Click()
  103.     PressedOK = False
  104.     Unload Me
  105. End Sub
  106. Private Sub cmdOK_Click()
  107.     Alias = Servers.SelectedItem.Text
  108.     PressedOK = True
  109.     Unload Me
  110. End Sub
  111. Private Sub Form_Load()
  112.     Dim WorkingNode     As Node
  113.     Dim i               As Integer
  114.     Dim NumberChildren  As Integer
  115.     NumberChildren = ServersNode.Children
  116.     For i = 1 To NumberChildren
  117.         If (i = 1) Then
  118.             Set WorkingNode = ServersNode.Child
  119.         Else
  120.             Set WorkingNode = WorkingNode.Next
  121.         End If
  122.         Call Servers.ListItems.Add(, , WorkingNode.Text, , 1)
  123.     Next
  124.     Set WorkingNode = Nothing
  125.     CenterForm Me
  126. End Sub
  127. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  128.     If (Not (UnloadMode = vbFormCode)) Then
  129.         PressedOK = False
  130.     End If
  131.     Set ServersNode = Nothing
  132. End Sub
  133. Private Sub Servers_DblClick()
  134.     If cmdOK.Enabled Then cmdOK_Click
  135. End Sub
  136.